home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 1 / FFMCD01.bin / bbs / util / quip.lha / Quip / Install Quip < prev    next >
Text File  |  1993-07-11  |  4KB  |  149 lines
  1. (set @default-dest "")
  2. (set @pretend 1)
  3.  
  4. (welcome
  5.     "I'm glad you've decided to Install Quip 0.07c.  " 
  6.     "I hope you enjoy this program.\n\n"
  7.     "-       Joseph E. Van Riper III\n(A Cheese Olfactory Workshop Supervisor)\n\n"
  8. )
  9.  
  10. (if
  11.     (askbool 
  12.         (prompt "Do you want Quip.dat installed?")
  13.         (help "Quip.dat is a half-meg datafile for Quip to grab quips from.  "
  14.               "Quip.tab is a tablefile already created for Quip.dat.  "
  15.               "There are over 3,000 quips in Quip.dat."
  16.         )
  17.         (default 1)
  18.     )
  19. ((set datadir
  20.         (askdir
  21.             (prompt "What directory to put Quip.dat or Quip.tab in?")
  22.             (help "It's recommended to stick with the s: directory, "
  23.                   "since Quip defaults to looking for 's:Quip.dat', "
  24.                   "but the choice is really yours."
  25.             )
  26.             (default "s:")
  27.         )
  28. )
  29.  
  30. (complete 14)
  31.  
  32. (copyfiles
  33.     (prompt 
  34.         "Now copying 'Quip.dat'."
  35.     )
  36.     (source "cookie.dat")
  37.     (newname "Quip.dat")
  38.     (dest datadir)
  39. )
  40.  
  41. (complete 28)
  42.  
  43. (copyfiles
  44.         (prompt "You may now want to have the tablefile copied with the datafile.")
  45.         (help 
  46.             "It is recommended to use a tablefile with the "
  47.             "datafile, as it can speed up the search for a quip "
  48.             "while running Quip.  You can create one with Quip at "
  49.             "any time, though."
  50.         )
  51.         (source "cookie.tab")
  52.         (newname "quip.tab")
  53.         (dest datadir)
  54.         (confirm)
  55. )))
  56.  
  57. (complete 42)
  58.  
  59. (if
  60.     (askbool
  61.         (prompt "Do you really want to install Quip?")
  62.         (help "I know it sounds like a crazy question, but it begs asking.")
  63.         (default 1)
  64.     )
  65.  
  66. ((set progdir
  67.         (askdir
  68.             (prompt "What directory to put Quip in?")
  69.             (help 
  70.                 "I recommend putting Quip somewhere in your system's path.  "
  71.                 "I'm counting on you having a 'SYS:Utilities' directory, "
  72.                 "but perhaps you have somewhere else in mind.  The icon will "
  73.                 "be copied with Quip, and the DATA ToolType will be set to "
  74.                 "where you had the datafile sent.  If you don't want to copy, just"
  75.                 " humour me with any answer, and skip past the next part."
  76.             )
  77.             (default "SYS:Utilities")
  78.         )
  79. )
  80.  
  81. (complete 56)
  82.  
  83. (working)
  84.  
  85. (if (OR (< (getversion "Quip") (getversion ("%s/Quip" progdir)))
  86.         (= (exists ("%s/Quip" progdir)) 0)
  87.     )
  88.  
  89. ((copyfiles
  90.         (prompt "Copying Quip.")
  91.         (help 
  92.         "You may decide not to copy Quip anywhere, but then, "
  93.         "why did you run this utility?")
  94.         (source "Quip")
  95.         (dest progdir)
  96.         (infos)
  97. ))
  98.  
  99.  
  100. (tooltype 
  101.         (settooltype "DATA" ("%sQuip.dat" datadir))
  102.         (settooltype "pre")
  103.         (settooltype "suf")
  104.         (noposition)
  105.         (dest ("%s/Quip" progdir))
  106. ))))
  107.  
  108. (complete 70)
  109.  
  110. (if
  111.     (askbool
  112.         (prompt "Do you want Quip.guide installed?")
  113.         (help "Quip.guide is the only help file available for Quip.  "
  114.               "It includes information on how to make the QuipScript "
  115.               "features of Quip work.  If you intend to use it from the CLI "
  116.               "exclusively, you can always 'quip ?' and then '?' again "
  117.               "for some fairly decent instruction."
  118.         )
  119.         (default 1)
  120.     )
  121. ((set guidedir
  122.             (askdir
  123.                 (prompt "Where do you want Quip.guide?")
  124.                 (help
  125.                 "Just that.. where'd you like to keep the documentation?  "
  126.                 "If you don't want the documentation, just amuse me with any old answer,"
  127.                 " and 'skip' past the next operation."
  128.                 )
  129.                 (default "SYS:docs")
  130.             )
  131. )
  132.  
  133. (complete 84)
  134. (working)
  135.  
  136. (if (or (< (getversion "Quip.guide") (getversion ("%s/Quip.guide" guidedir)))
  137.         (= (exists ("%s/Quip.guide" guidedir)) 0)
  138.     )
  139. (copyfiles
  140.         (prompt "And now.. the actual COPYING of Quip.guide.")
  141.         (source "Quip.guide")
  142.         (dest guidedir)
  143.         (help @copyfiles-help)
  144.         (infos)
  145. ))))
  146. (complete 100)
  147. (message "You may want to modify the tooltypes for Quip, to point to your datafile.  "
  148.          "There is a mild chance that it was bungled during the installation.")
  149.